Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/background_21186.txt

Text File | 1990-04-17 | 12KB | 530 lines

-- background: 21186 from stack: in
-- bmap block id: 21334
-- flags: 0000
-- background id: 0
-- name: Chooser
----- HyperTalk script -----
on parseR
  global holder,Reads,prodname
  put empty into Reads
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname then
      put item 4 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Reads
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseR

on parseW
  global holder,Writes,prodname
  put empty into Writes
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname then
      put item 5 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Writes
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseW

on parseN
  global holder,Network,prodname
  put empty into Network
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname then
      put item 6 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Network
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseN

on parseR2
  global holder2,Reads2,prodname2
  put empty into Reads2
  repeat with i = 1 to the number of lines of holder2
    if item 2 of line i of holder2 is prodname2 then
      put item 4 of line i of holder2 into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Reads2
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseR2

on parseW2
  global holder2,Writes2,prodname2
  put empty into Writes2
  repeat with i = 1 to the number of lines of holder2
    if item 2 of line i of holder2 is prodname2 then
      put item 5 of line i of holder2 into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Writes2
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseW2

on parseN2
  global holder2,Network2,prodname2
  put empty into Network2
  repeat with i = 1 to the number of lines of holder2
    if item 2 of line i of holder2 is prodname2 then
      put item 6 of line i of holder2 into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Network2
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseN2

on clean
end clean



-- part 9 (field)
-- low flags: 81
-- high flags: 6004
-- rect: left=253 top=122 right=279 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 12
-- style flags: 8192
-- line height: 12
-- part name: EnvExplainer
----- HyperTalk script -----
on mouseUp
  put empty into me
  hide me
  put empty into field "Explainer"
  hide field "Explainer"
end mouseUp


-- part 11 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=142 top=68 right=173 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Explainer
----- HyperTalk script -----
on mouseUp
  global help
  put false into help
  set hilite of bkgnd btn help to false
  put empty into me
  hide me
  put empty into field "Explainer"
  hide field "Explainer"
end mouseUp



-- part 59 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=168 top=303 right=342 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell
----- HyperTalk script -----
on mouseEnter
  put "Message Field" & return & "displays help information" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseLeave


-- part 69 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=348 top=217 right=245 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  global theRoom,env,network,network1,service
  set cursor to busy
  set lockscreen to true
  if env is "Mac" then
    put "RoomMac" into theRoom
    unlock screen with dissolve
    go cd "Network" && theRoom
    exit mouseUp
  end if
  if env is "PC" then
    put "RoomMicro" into theRoom
  else
    put "Room" into theRoom
  end if
  put cd fld "Choice" into service
  put service into network1
  go cd "Network" && theRoom
  unlock screen with dissolve
end mouseUp

on mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  changeCurs 6069
  put "OK Button" & return & "click to return to room" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 70 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=343 top=303 right=342 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 1409 / 1409
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outliner
----- HyperTalk script -----
on mouseUp
  global Mack,Host
  set cursor to busy
  push card
  visual effect dissolve
  put false into Mack
  put false into Host
  go to cd "Outliner"
  click at 10,10
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Outliner Button" & return & "use outline navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 71 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lobby
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set cursor to busy
  push card
  unlock screen with dissolve
  go to cd "Lobby"
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Lobby Button" & return & "use building navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 72 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 30492 / 30492
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kiosk
----- HyperTalk script -----
on mouseUp
  push card
  set lockscreen to true
  set cursor to busy
  go to cd "Matrix"
  unlock screen with visual effect dissolve
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Matrix Button" & return & "use matrix navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 73 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=469 top=303 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoBack
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set cursor to busy
  go Back
  unlock screen with visual effect wipe right
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Go Back Button" & return & "click to go to prev card" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave


-- part 74 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=126 top=303 right=342 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Printer
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  print card
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Printer Button" & return & "click to print this image" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 75 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=84 top=303 right=342 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 20358 / 20358
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Glossary
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  get short name of this card
  if it is "Outliner" then clearF
  push card
  visual effect iris open
  go cd "glossary"
end mouseUp

on mouseEnter
  put "Glossary Button" & return & "click to go to the Glossary" into fld "Tell"
  changeCurs 6069
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 76 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=42 top=303 right=342 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 21375 / 21375
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outline mode
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Briefing Button" & return & "click to go to briefing room" into fld "Tell"
end mouseEnter

on mouseUp
  set lockscreen to true
  set cursor to busy
  push card
  go to cd "Briefing Room"
  unlock screen with dissolve
  pass mouseUp
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 77 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=0 top=303 right=342 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 10112 / 10112
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EXIT
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Exit Button" & return & "click to quit or go home" into fld "Tell"
end mouseEnter

on mouseUp
  set lockscreen to true
  answer "Would you like to Quit, go Home, or Cancel" with "Quit" or "Home" or "Cancel"
  unlock screen with dissolve
  set lockscreen to true
  if it is "Quit" then doMenu "Quit HyperCard"
  if it is "Home" then
    put empty into field "Explainer"
    domenu Home
  end if
  unlock screen with dissolve
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave